unit KontragentFrameUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, dxSkinscxPCPainter, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, VDB,
  cxDBLookupComboBox, cxPropertiesStore;

type
  TKontragentFrame = class(TFrame)
    KGridView: TcxGridDBTableView;
    KGridLevel: TcxGridLevel;
    KGrid: TcxGrid;
    KSource: TDataSource;
    ZSource: TDataSource;
    KGridViewCODE: TcxGridDBColumn;
    KGridViewNAME: TcxGridDBColumn;
    KGridViewFULLNAME: TcxGridDBColumn;
    KGridViewINN: TcxGridDBColumn;
    KGridViewOGRN: TcxGridDBColumn;
    KGridViewZONE: TcxGridDBColumn;
    KGridViewADDR: TcxGridDBColumn;
    KGridViewPHONE: TcxGridDBColumn;
    KGridViewDIR: TcxGridDBColumn;
    KGridViewNOTE: TcxGridDBColumn;
    KStore: TcxPropertiesStore;
  private
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

{ TKontragentFrame }

constructor TKontragentFrame.Create(AOwner: TComponent);
begin
  inherited;
  KStore.RestoreFrom;
end;

destructor TKontragentFrame.Destroy;
begin
  KStore.StoreTo;
  inherited;
end;

end.
